home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / RMH / Examples / child.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-24  |  365 b   |  33 lines
  1. /*
  2. ** MacroNotify
  3. ** Child macro
  4. **
  5. **/
  6.  
  7. signal on halt
  8. signal on break_c
  9. signal on break_d
  10.  
  11. parse arg name i
  12.  
  13. call MacroNotifyJoin(name)
  14. joined=1
  15.  
  16. call MacroEnv("env")
  17.  
  18. say " Child" i "started"
  19.  
  20. if i//2 then upto=1E10
  21. else upto=100
  22. do j=0 to upto
  23.     say "Child" i j
  24. end
  25.  
  26. break_c:
  27. halt:
  28.     if joined~=1 then call MacroNotifyJoin(name)
  29.     exit
  30.  
  31. break_d:
  32.     exit
  33.